library(shiny)

# Define UI for random distribution application 
shinyUI(fluidPage(
    
    # Application title
    titlePanel(tags$h6("Valor Agregado, 2011")),
    
    # Sidebar with controls to select the random distribution type
    # and number of observations to generate. Note the use of the
    # br() element to introduce extra vertical spacing
    sidebarLayout(
        sidebarPanel(
            checkboxInput('self','Incluir potencial propio',value=FALSE),
            br(),
            
            numericInput('perm',label='N?mero de permutaciones',value=1000,
                         min=999,max=10000,step=100),
            br(),
            
            radioButtons("signif", label="Umbral de Significancia",
                         c("1%" = 0.01,
                           "5%" = 0.05,
                           "10%"=0.1),selected=0.05),
            br(),
            
            sliderInput("hdist", label = "Vecindario (<= x horas)",
                        min=0.5,max=4, value=0.5,step = 0.5,animate=TRUE)
            
            
        ),
        mainPanel(
            tabsetPanel(tabPanel('LISA: PM',
                                 plotOutput("plot1",width=400,height=450)
            ),
            tabPanel('LISA: VA',
                     plotOutput("plot2",width=400,height=450)
                     )
            )
        )
    )
    
    
)
)

